﻿Imports Automation.BDaq

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UdConter.InitCounter(1)
        UdConter.SetCounterType(0, CountingType.AbPhaseX1)
    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        Timer1.Start()
        UdConter.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lbCnt.Text = UdConter.GetCount(0)
    End Sub
End Class
